TableSetTitle Subroutine

public subroutine TableSetTitle(tab, title)

set table title Arguments: tab returned table title table title

Arguments

Type IntentOptional Attributes Name
type(Table), intent(inout) :: tab
character(len=*), intent(in) :: title

Source Code

SUBROUTINE TableSetTitle &
  ( tab, title )

IMPLICIT NONE

! Arguments with intent(in):
CHARACTER ( LEN = *), INTENT(IN) :: title

! Arguments with intent (inout):
TYPE (Table), INTENT (INOUT) :: tab

!------------end of declaration------------------------------------------------

tab % title = TRIM (title)

RETURN 
END SUBROUTINE TableSetTitle